600
How can I display minutes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LevelCount = 2
		.Chart.UnitWidth = 64
		.Chart.Level(0).Label = 65536
		.Chart.Level(1).Label = 1048576
	End With
End Function
</SCRIPT>
</BODY>
599
How can I display seconds, from 15 to 15

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = "00:00"
		.Chart.LevelCount = 2
		.Chart.Level(0).Label = 1048576
		With .Chart.Level(1)
			.Label = "<%ss%>"
			.Count = 15
		End With
	End With
End Function
</SCRIPT>
</BODY>
598
How can I display seconds

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LevelCount = 2
		.Chart.Level(0).Label = 1048576
		.Chart.Level(1).Label = "<%ss%>"
	End With
End Function
</SCRIPT>
</BODY>
597
How can I display seconds

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LevelCount = 2
		.Chart.Level(0).Label = 1048576
		.Chart.Level(1).Label = 16777216
	End With
End Function
</SCRIPT>
</BODY>
596
How can I align the text being shown in the chart's header

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.UnitWidth = 64
		With .Chart.Level(0)
			.Label = "<b><%mmmm%></b> <r><%m%>"
			.Unit = 16
			.Alignment = 0
		End With
	End With
End Function
</SCRIPT>
</BODY>
595
How can I hide the tooltip being displayed in the chart's header
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.Level(0).ToolTip = ""
	End With
End Function
</SCRIPT>
</BODY>
594
How can I change the tooltip being displayed in the chart's header
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.Level(0).ToolTip = "This is a bit of text that's shown when the cursor hovers the level"
	End With
End Function
</SCRIPT>
</BODY>
593
How can I change the visual appearance of the chart's header, where levels are displayed, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Chart.LevelCount = 2
		.Chart.BackColorLevelHeader = &H1000000
	End With
End Function
</SCRIPT>
</BODY>
592
How can I change the level's foreground color in the chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LevelCount = 2
		.Chart.Level(0).ForeColor = RGB(255,0,0)
		.Chart.Level(1).ForeColor = RGB(0,0,255)
	End With
End Function
</SCRIPT>
</BODY>
591
How can I change the level's background color in the chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LevelCount = 2
		.Chart.Level(0).BackColor = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>
590
How can I save data on XML format
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.LoadXML "http://www.exontrol.net/testing.xml"
		.SaveXML "c:/temp/exg2antt.xml"
	End With
End Function
</SCRIPT>
</BODY>
589
How can I load data on XML format
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.LoadXML "http://www.exontrol.net/testing.xml"
	End With
End Function
</SCRIPT>
</BODY>
588
How can I add icons or pictures to the scale or zoom area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Chart
			.OverviewHeight = 48
			.OverviewVisible = 2
			.AllowOverviewZoom = -1
			.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img> Week|Third|<img>2</img> Day|<img>pic1</img>|Hour|Min|Sec"
			.Label(0) = ""
			.Label(1) = ""
			.Label(2) = ""
			.Label(17) = ""
			.Label(65536) = ""
			.Label(1048576) = ""
			.Label(16777216) = ""
			.OverviewZoomUnit = 52
		End With
		.Columns.Add ""
		With .Items
			.CellSingleLine(.AddItem("Right click the Overview area and select a new scale"),0) = False
		End With
	End With
End Function
</SCRIPT>
</BODY>
587
How can I add icons or pictures to the scale or zoom area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Chart
			.OverviewHeight = 48
			.OverviewVisible = 2
			.AllowOverviewZoom = 1
			.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img> Week|Third|<img>2</img> Day|<img>pic1</img>|Hour|Min|Sec"
			.Label(0) = ""
			.Label(1) = ""
			.Label(2) = ""
			.Label(17) = ""
			.Label(65536) = ""
			.Label(1048576) = ""
			.Label(16777216) = ""
			.OverviewZoomUnit = 52
		End With
	End With
End Function
</SCRIPT>
</BODY>
586
How can I change the width of the unit in the scale or zoom

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Chart
			.OverviewVisible = 2
			.AllowOverviewZoom = 1
			.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>|Third|<img>2</img>|<img>1</img>|Hour|Min|Sec"
			.Label(0) = ""
			.Label(1) = ""
			.Label(2) = ""
			.Label(17) = ""
			.Label(65536) = ""
			.Label(1048576) = ""
			.Label(16777216) = ""
			.OverviewZoomUnit = 24
		End With
	End With
End Function
</SCRIPT>
</BODY>
585
How can I a scale or zoom of the chart, when right clicking the chart's header

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Chart
			.OverviewVisible = 2
			.AllowOverviewZoom = -1
			.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec"
			.Label(0) = ""
			.Label(1) = ""
			.Label(2) = ""
			.Label(17) = ""
			.Label(65536) = ""
			.Label(1048576) = ""
			.Label(16777216) = ""
			.OverviewZoomUnit = 64
		End With
		.Columns.Add ""
		With .Items
			.CellSingleLine(.AddItem("Right click the Overview area and select a new scale"),0) = False
		End With
	End With
End Function
</SCRIPT>
</BODY>
584
How can I a customize the scale or zoom of the chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Chart
			.OverviewVisible = 2
			.AllowOverviewZoom = 1
			.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec"
			.Label(0) = ""
			.Label(1) = ""
			.Label(2) = ""
			.Label(17) = ""
			.Label(65536) = ""
			.Label(1048576) = ""
			.Label(16777216) = ""
			.OverviewZoomUnit = 64
		End With
	End With
End Function
</SCRIPT>
</BODY>
583
How can I a scale or zoom the chart at runtime

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Chart
			.OverviewVisible = 2
			.AllowOverviewZoom = 1
			.OverviewZoomCaption = "½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec"
		End With
	End With
End Function
</SCRIPT>
</BODY>
582
How can I a scale or zoom the chart at runtime

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.OverviewVisible = 2
			.AllowOverviewZoom = 1
			.OverviewZoomUnit = 24
		End With
	End With
End Function
</SCRIPT>
</BODY>
581
How can I a programmatically select a date
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.MarkSelectDateColor = RGB(255,0,0)
		.Chart.SelectLevel = 0
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.SelectDate(#1/2/2001#) = True
		.Chart.SelectDate(#1/5/2001#) = True
	End With
End Function
</SCRIPT>
</BODY>
580
How can I change the color to select a date, when clicking the chart's header
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.BackColor = RGB(255,255,255)
		.Chart.MarkSelectDateColor = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>
579
How can I enable or disable selecting a date, when clicking the chart's header
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.BackColor = RGB(255,255,255)
		.Chart.MarkSelectDateColor = RGB(255,255,255)
	End With
End Function
</SCRIPT>
</BODY>
578
How can I specify the color or the stype for non working hours

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.UnitScale = 65536
		.Chart.PaneWidth(False) = 0
		.Chart.NonworkingHours = 127
		.Chart.NonworkingHoursPattern = 12
		.Chart.NonworkingHoursColor = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>
577
How can I specify the pattern or the stype for non working hours

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.UnitScale = 65536
		.Chart.PaneWidth(False) = 0
		.Chart.NonworkingHours = 127
		.Chart.NonworkingHoursPattern = 7
	End With
End Function
</SCRIPT>
</BODY>
576
How can I specify the non working hours

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.UnitScale = 65536
		.Chart.PaneWidth(False) = 0
		.Chart.NonworkingHours = 127
	End With
End Function
</SCRIPT>
</BODY>
575
How can I get the index of the level from the point or cursor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		var_LevelFromPoint = .Chart.LevelFromPoint(0,0)
	End With
End Function
</SCRIPT>
</BODY>
574
How can I get the link from the point or cursor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		var_LinkFromPoint = .Chart.LinkFromPoint(0,0)
	End With
End Function
</SCRIPT>
</BODY>
573
How can I disable or enable at runtime linking the bars
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.AllowLinkBars = True
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1"
			.AddBar .AddItem("Item 2"),"Task",#1/6/2001#,#1/14/2001#,"B2"
		End With
	End With
End Function
</SCRIPT>
</BODY>
572
How can I check or verify if a date is a non working day
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add G2antt1.Chart.IsNonworkingDate(#1/1/2001#)
	End With
End Function
</SCRIPT>
</BODY>
571
How can I check or verify if a date fits the chart's visible area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add G2antt1.Chart.IsDateVisible(#1/1/2001#)
	End With
End Function
</SCRIPT>
</BODY>
570
How can I add a remove all non working days
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.NonworkingDays = 0
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.AddNonworkingDate #1/1/2001#
		.Chart.ClearNonworkingDates 
	End With
End Function
</SCRIPT>
</BODY>
569
How can I add a remove a non working days

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.NonworkingDays = 0
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.AddNonworkingDate #1/1/2001#
		.Chart.RemoveNonworkingDate #1/1/2001#
	End With
End Function
</SCRIPT>
</BODY>
568
How can I add a custom non working days

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.NonworkingDays = 0
		.Chart.FirstVisibleDate = #1/1/2001#
		.Chart.AddNonworkingDate #1/1/2001#
		.Chart.AddNonworkingDate #1/5/2001#
	End With
End Function
</SCRIPT>
</BODY>
567
How can hide the non working days
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.ShowNonworkingDates = False
	End With
End Function
</SCRIPT>
</BODY>
566
How can hide the non working days
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.NonworkingDays = 0
	End With
End Function
</SCRIPT>
</BODY>
565
How can I let user adds new bars at runtime
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.AllowCreateBar = 1
		.Columns.Add "Column"
		With .Items
			.AddItem "Item 1"
			.AddItem "Item 2"
		End With
	End With
End Function
</SCRIPT>
</BODY>
564
How can I change the width of the links between bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LinksStyle = 0
		.Chart.LinksWidth = 2
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1"
			.AddBar .AddItem("Item 2"),"Task",#1/6/2001#,#1/14/2001#,"B2"
			.AddLink "L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2"
		End With
	End With
End Function
</SCRIPT>
</BODY>
563
How can I change the style for the links between bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LinksStyle = 4
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1"
			.AddBar .AddItem("Item 2"),"Task",#1/6/2001#,#1/14/2001#,"B2"
			.AddLink "L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2"
		End With
	End With
End Function
</SCRIPT>
</BODY>
562
How can I change the color for the links between bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LinksColor = RGB(255,0,0)
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1"
			.AddBar .AddItem("Item 2"),"Task",#1/6/2001#,#1/14/2001#,"B2"
			.AddLink "L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2"
		End With
	End With
End Function
</SCRIPT>
</BODY>
561
How can I hide the links between bars
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1"
			.AddBar .AddItem("Item 2"),"Task",#1/6/2001#,#1/14/2001#,"B2"
			.AddLink "L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2"
		End With
		.Chart.ShowLinks = False
	End With
End Function
</SCRIPT>
</BODY>
560
How can I display some grid line in the overview area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.OverviewVisible = 2
		.Chart.OverviewLevelLines = 0
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
			.AddBar .AddItem("Item 1"),"Task",#1/6/2001#,#1/14/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
559
How do I change the tooltip when the cursor hovers the overview area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.OverviewVisible = 2
		.Chart.OverviewToolTip = "Tooltip on the overview"
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
			.AddBar .AddItem("Item 1"),"Task",#1/6/2001#,#1/14/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
558
How do I remove the tooltip when the cursor hovers the overview area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.OverviewVisible = 2
		.Chart.OverviewToolTip = ""
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
557
How do I change the selection color in the overview area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.OverviewVisible = 2
		.Chart.OverviewSelBackColor = RGB(255,0,0)
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
556
How do I change the background color for the overview area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.OverviewVisible = 2
		.Chart.OverviewBackColor = RGB(255,0,0)
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
555
How do I specify the height for the overview area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.OverviewVisible = 2
		.Chart.OverviewHeight = 16
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
554
How do I show or hide the control's overview area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.OverviewVisible = 2
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
553
How do I enable or disable resizing the bars at runtime
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.BarsAllowSizing = False
	End With
End Function
</SCRIPT>
</BODY>
552
How do I get the bar from the point or cursor

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		alert( .ItemFromPoint(-1,-1,c,h) )
		alert( .Chart.BarFromPoint(-1,-1) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #12/29/2000#
			.PaneWidth(False) = 64
			.LevelCount = 2
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/4/2001#,#1/6/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
551
How do I specify the color of pattern for non working days
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.NonworkingDays = 66
		.Chart.NonworkingDaysPattern = 8
		.Chart.NonworkingDaysColor = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>
550
How do I specify the type of pattern for non working days

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.NonworkingDays = 66
		.Chart.NonworkingDaysPattern = 11
	End With
End Function
</SCRIPT>
</BODY>
549
How do I specify the non working days
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.NonworkingDays = 66
	End With
End Function
</SCRIPT>
</BODY>
548
How do I specify the non working days
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.NonworkingDays = 66
	End With
End Function
</SCRIPT>
</BODY>
547
How do I add a predefined bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.Bars.Add("CustomBar").Color = RGB(255,0,0)
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"CustomBar",#1/2/2001#,#1/4/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>
546
How do I change the unit being displayed in the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.PaneWidth(False) = 0
		.Chart.UnitScale = 256
		.Chart.UnitWidth = 64
	End With
End Function
</SCRIPT>
</BODY>
545
How do I specify the prodefined tooltip being shown on the chart's header, when Zoom method is used

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.PaneWidth(False) = 0
		.Chart.LevelCount = 2
		.Chart.Label(1) = ""
		.Chart.Label(2) = ""
		.Chart.Label(16) = "<%m3%>"
		.Chart.LabelToolTip(16) = "Tooltip: <%mmmm%>"
		.Chart.Zoom #1/1/2007#,#1/1/2008#
		.Chart.FirstVisibleDate = #1/1/2007#
	End With
End Function
</SCRIPT>
</BODY>
544
How do I specify the prodefined labels being displayed on the chart, when Zoom method is used

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.PaneWidth(False) = 0
		.Chart.LevelCount = 2
		.Chart.Label(1) = ""
		.Chart.Label(2) = ""
		.Chart.Label(16) = "<%m3%>"
		.Chart.Zoom #1/1/2007#,#1/1/2008#
		.Chart.FirstVisibleDate = #1/1/2007#
	End With
End Function
</SCRIPT>
</BODY>
543
How do I scale or zoom the chart to a specified range of date

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.PaneWidth(False) = 0
		.Chart.LevelCount = 2
		.Chart.Label(1) = ""
		.Chart.Label(2) = ""
		.Chart.Label(16) = "<%m3%>"
		.Chart.Zoom #1/1/2007#,#1/1/2008#
		.Chart.FirstVisibleDate = #1/1/2007#
	End With
End Function
</SCRIPT>
</BODY>
542
How do I scale or zoom the chart to a specified range of date

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.PaneWidth(False) = 0
		.Chart.LevelCount = 2
		.Chart.Zoom #1/1/2007#,#7/1/2007#
		.Chart.FirstVisibleDate = #1/1/2007#
	End With
End Function
</SCRIPT>
</BODY>
541
How do I find the next date or previous date
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.FirstVisibleDate = .NextDate(#1/1/2002#,4096,1)
		End With
	End With
End Function
</SCRIPT>
</BODY>
540
How can I change the color for the grid lines in the chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.DrawGridLines = -1
		.Chart.LevelCount = 2
		With .Chart.Level(1)
			.DrawGridLines = True
			.GridLineColor = RGB(255,0,0)
		End With
	End With
End Function
</SCRIPT>
</BODY>
539
How can I draw, show or hide the grid lines in the chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.DrawGridLines = -1
		.Chart.LevelCount = 2
		.Chart.Level(1).DrawGridLines = True
	End With
End Function
</SCRIPT>
</BODY>
538
How do I change the color to highlight the today in the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.MarkTodayColor = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>
537
How do I hide or stop highlighting the today area in the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.MarkTodayColor = .BackColor
		End With
	End With
End Function
</SCRIPT>
</BODY>
536
Is there any function to get the date in the format that I use for levels, to layout my chart's header
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		h = .Chart.FormatDate(#1/1/2002#,"<%yyyy%> <%mmmm%> <%d%> <%dddd%>")
		.Columns.Add h
	End With
End Function
</SCRIPT>
</BODY>
535
How can I get the date from the point, cursor
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		alert( .Chart.DateFromPoint(-1,-1) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>
534
How can I show or hide the small ticker that shows up when the cursor hovers the chart area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.DrawDateTicker = True
	End With
End Function
</SCRIPT>
</BODY>
533
How can I change the first visible date in the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LevelCount = 2
		.Chart.FirstVisibleDate = #1/1/2002#
	End With
End Function
</SCRIPT>
</BODY>
532
How can I scroll or ensure that a specified date time is visible in the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LevelCount = 2
		.Chart.FirstVisibleDate = #1/1/2002#
	End With
End Function
</SCRIPT>
</BODY>
531
How can I scroll or ensure that a specified date time is visible to the right side of the chart or control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LevelCount = 2
		.Chart.ScrollTo #1/1/2002#,2
	End With
End Function
</SCRIPT>
</BODY>
530
How can I scroll or ensure that a specified date time is visible
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LevelCount = 2
		.Chart.ScrollTo #1/1/2002#,2
	End With
End Function
</SCRIPT>
</BODY>
529
How can I show or hide the the tooltip being shown when the user scrolls the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.ToolTip = ""
	End With
End Function
</SCRIPT>
</BODY>
528
How can I change the format of the tooltip when the user scrolls the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.ToolTip = "ToolTip: <b><%dddd%></b>"
	End With
End Function
</SCRIPT>
</BODY>
527
How can I hide the chart's scroll bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.ScrollBar = False
	End With
End Function
</SCRIPT>
</BODY>
526
How can I specify the first day of the week
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LevelCount = 2
		.Chart.FirstWeekDay = 1
	End With
End Function
</SCRIPT>
</BODY>
525
How do I change the AM or PM shortcuts in the chart's header
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.UnitWidth = 64
		.Chart.AMPM = "A P"
		With .Chart.Level(0)
			.Label = "<%h%> <%AM/PM%>"
			.Unit = 65536
		End With
	End With
End Function
</SCRIPT>
</BODY>
524
How do I change the name for the months, being displayed in the chart's header

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.UnitWidth = 64
		.Chart.MonthNames = "Ianuarie Februarie Martie Aprilie Mai Iunie Iulie August Septembrie Octombrie Noiembrie Decembrie"
		With .Chart.Level(0)
			.Label = "<b><%mmmm%></b>"
			.Unit = 16
		End With
	End With
End Function
</SCRIPT>
</BODY>
523
How do I change the name for the week days, being displayed in the chart's header

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.UnitWidth = 64
		.Chart.WeekDays = "Duminica Luni Marti Miercuri Joi Vineri Simbata"
		.Chart.Level(0).Label = "<b><%mm%></b>/<%dddd%>"
	End With
End Function
</SCRIPT>
</BODY>
522
How do I access a level in the chart's header
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.UnitWidth = 64
		.Chart.Level(0).Label = "<b><%mm%></b>/<%dd%>"
	End With
End Function
</SCRIPT>
</BODY>
521
How can I change the color for the grid lines between the leves in the chart's header
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.GridLineColor = RGB(255,0,0)
		.Chart.LevelCount = 2
	End With
End Function
</SCRIPT>
</BODY>
520
How can I show or hide the grid lines between the leves in the chart's header

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.GridLineColor = RGB(255,0,0)
		With .Chart
			.LevelCount = 2
			.Level(0).DrawTickLines = False
			.Level(1).DrawTickLines = False
		End With
	End With
End Function
</SCRIPT>
</BODY>
519
How do I change the foreground color for the chart's header

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.ForeColorLevelHeader = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>
518
How do I change the background color for the chart's header

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.BackColorLevelHeader = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>
517
How do I specify the chart's foreground color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.ForeColor = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>
516
How do I specify the chart's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.BackColor = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>
515
How do I put a picture on the center of the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.Picture = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.Chart.PictureDisplay = 17
	End With
End Function
</SCRIPT>
</BODY>
514
How do I resize/stretch a picture on the chart's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.Picture = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.Chart.PictureDisplay = 49
	End With
End Function
</SCRIPT>
</BODY>
513
How do I put a picture on the chart's center right bottom side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.Picture = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.Chart.PictureDisplay = 34
	End With
End Function
</SCRIPT>
</BODY>
512
How do I put a picture on the chart's center left bottom side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.Picture = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.Chart.PictureDisplay = 32
	End With
End Function
</SCRIPT>
</BODY>
511
How do I put a picture on the chart's center top side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.Picture = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.Chart.PictureDisplay = 1
	End With
End Function
</SCRIPT>
</BODY>
510
How do I put a picture on the chart's right top corner
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.Picture = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.Chart.PictureDisplay = 2
	End With
End Function
</SCRIPT>
</BODY>
509
How do I put a picture on the chart's left top corner
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.Picture = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.Chart.PictureDisplay = 0
	End With
End Function
</SCRIPT>
</BODY>
508
How do I put a picture on the chart's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.Picture = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	End With
End Function
</SCRIPT>
</BODY>
507
How to specify the width for the left or side pane
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.PaneWidth(False) = 128
	End With
End Function
</SCRIPT>
</BODY>
506
How do I display the header of the chart using multiple levels, lines

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.LevelCount = 2
	End With
End Function
</SCRIPT>
</BODY>
505
How do change the width of the chart's area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.PaneWidth(True) = 256
	End With
End Function
</SCRIPT>
</BODY>
504
How do I show or hide the control's chart area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.PaneWidth(True) = 0
	End With
End Function
</SCRIPT>
</BODY>
503
How do I access the chart's area of the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.PaneWidth(0) = 64
	End With
End Function
</SCRIPT>
</BODY>
502
How can I select a cells like in excel
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.SingleSel = False
		.FullRowSelect = 1
		.MarkSearchColumn = False
		.SearchColumnIndex = -1
		.Columns.Add "Column1"
		.Columns.Add "Column2"
		.Columns.Add "Column3"
		With .Items
			.DefaultItem = .AddItem(0)
			.CellValue(0,1) = 1
			.CellValue(0,2) = 2
			.DefaultItem = .AddItem(3)
			.CellValue(0,1) = 4
			.CellValue(0,2) = 5
			.DefaultItem = .AddItem(6)
			.CellValue(0,1) = 7
			.CellValue(0,2) = 8
		End With
	End With
End Function
</SCRIPT>
</BODY>
501
How can I select a multiple column
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.MarkSearchColumn = False
		.SingleSel = False
		.FullRowSelect = 1
		.Columns.Add("Column1").Selected = True
		.Columns.Add "Column2"
		.Columns.Add("Column3").Selected = True
		With .Items
			.DefaultItem = .AddItem(0)
			.CellValue(0,1) = 1
			.CellValue(0,2) = 2
			.DefaultItem = .AddItem(3)
			.CellValue(0,1) = 4
			.CellValue(0,2) = 5
			.DefaultItem = .AddItem(6)
			.CellValue(0,1) = 7
			.CellValue(0,2) = 8
		End With
		.Items.SelectAll 
	End With
End Function
</SCRIPT>
</BODY>